home *** CD-ROM | disk | FTP | other *** search
/ Le Monde De La Mer / Le monde de la mer.iso / pc / club / divers / club.scp < prev    next >
Text File  |  1997-09-30  |  694b  |  41 lines
  1. ; C:\Program Files\Netscape\CLUB-INTERNET\Program\isp1.scp
  2. proc main
  3.    integer nTries = 3
  4.    boolean bUseSlip = TRUE
  5.    delay 2
  6.    transmit "^M^M"
  7.    while 0 < nTries do
  8.    waitfor "Ser?" then DoSer until 20
  9.  
  10. TryAgain:
  11.       transmit "^M"        ; ping
  12.       nTries = nTries - 1
  13.    endwhile
  14.    goto BailOut
  15.  
  16. DoSer:
  17.       transmit "CLUBINT"
  18.       transmit "^M"
  19.       waitfor "ogin:" then DoLogin until 20
  20.       goto TryAgain
  21.  
  22. DoLogin:
  23.    transmit $USERID
  24.    transmit "^M"
  25.    waitfor "ssword:" until 20
  26.    if FALSE == $SUCCESS then
  27.       goto TryAgain
  28.    endif
  29.    transmit $PASSWORD
  30.    transmit "^M"
  31.    waitfor "Entering"
  32.    goto Done
  33.  
  34. BailOut:
  35.    set screen keyboard on
  36.    halt
  37. Done:
  38. endproc
  39.  
  40.  
  41.